﻿Imports System.Configuration

Module mainModule

    <STAThread()> _
    Sub main(ByVal cmdArgs() As String)

        Principal.gerenciadorDeTemas.GlobalPalette = ComponentFactory.Krypton.Toolkit.KryptonManager.PaletteOffice2010Silver
        Application.EnableVisualStyles()

        'Verifica se está sendo executado pela primeira vez
        'e pede para configurar a senha principal
        If (My.Settings.firstTime = "yes") Then
            PrimeiraExecucao.ShowDialog()

            My.Settings.firstTime = "no"
            My.Settings.Save()
        End If

        If Not (New IO.FileInfo(Config.DiretorioBD).Exists) Then

            MessageBox.Show("Não foi possível encontrar um banco de dados para o Wotan." & _
                vbNewLine & "A ferramenta de restauração será iniciada.", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            Dim frm As New Backup("restaurar")
            If (frm.ShowDialog() <> DialogResult.Yes) Then
                MessageBox.Show("Não foi possível efetuar o backup. O Wotan será encerrado.", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End
            End If
        End If

        Application.DoEvents()
        Application.Run(New Splash(3))

    End Sub

End Module